home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 20
/
64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64
/
listing 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
383b
|
9 lines
5 printchr$(142) :rem grossbuchstaben einschalten
10 poke 52,48:poke 56,48:clr :rem basicspeicher begrenzen
20 poke 56334,peek(56334) and 254 :rem unterbrechungen abschalten
30 poke 1,peek(1) and 251 :rem zeichenrom einblenden
40 for i=0 to 511:poke i+12288,peek(i+53248):next
50 poke 1,peek(1) or 4 :rem ein-/ausgabe einblenden
60 poke 56334,peek(56334) or 1 :rem unterbrechungen zulassen
70 end